assume cs:codesg,ds:datasg,ss:stacksg
datasg segment
db 77h,65h,6ch,63h,6fh,6dh,65h,20h,74h,6fh,20h,6dh,61h,73h,6dh,21h
datasg ends
stacksg segment
dw 0,0,0,0,0,0,0,0
stacksg ends
codesg segment
start: mov ax,0b800h
       mov ds,ax
       mov ax,datasg
       mov es,ax
       mov ax,stacksg
       mov ss,ax
       mov sp,10h
       mov bp,0
       mov al,0
       mov cx,3h
 s1:   push cx
       mov bx,0
       mov si,40h
       mov di,41h
       mov cx,10h
  s:   mov al,es:[bx]
       mov ds:[bp+si],al
       mov al,42h
       mov ds:[bp+di],al
       inc bx
       add si,02h
       add di,02h
       loop s
       pop cx
       add bp,0a0h
       loop s1

       mov ax,4c00h
       int 21h
codesg ends
end start
